home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_509 / multi_player / sources / soundmon-replay.s < prev    next >
Text File  |  1992-05-06  |  11KB  |  605 lines
  1. ******************************************
  2. **    SOUNDMONITOR V2.0 PLAYROUTINE    **
  3. ******************************************
  4. ; !!!!
  5.     XDEF    _sm_init,_sm_music,_sm_end
  6.     XREF    _adr_data
  7. ; !!!!
  8. *****************************************
  9. _sm_end:
  10. END_MUSIC:
  11.     clr.l $dff0a6
  12.     clr.l $dff0b6
  13.     clr.l $dff0c6
  14.     clr.l $dff0d6
  15.     move.w #$000f,$dff096
  16.     bclr #1,$bfe001
  17. rts
  18. ******************************************
  19. _sm_init:
  20. BS_INIT:lea    BS_D17,a0
  21.     move.l    _adr_data,a1
  22. ;    lea    BS_DATA,a1
  23.     clr.b    BS_D12
  24.     cmpi.w    #$562e,$001a(a1)
  25.     bne.w    BS_int1
  26.     cmpi.b    #$32,$001c(a1)
  27.     bne.w    BS_int1
  28.     move.b    $001d(a1),BS_D12
  29. BS_int1:move.l    #$00000200,d0
  30.     move.w    $001e(a1),d1
  31.     move.l    #$00000001,d2
  32.     mulu    #$0004,d1
  33.     subq.w    #$1,d1
  34. BS_int2:cmp.w    $00(a1,d0.l),d2
  35.     bge.w    BS_int3
  36.     move.w    $00(a1,d0.l),d2
  37. BS_int3:addq.l    #$4,d0
  38.     dbf    d1,BS_int2
  39.     move.w    $001e(a1),d1
  40.     mulu    #$0010,d1
  41.     move.l    #$00000200,d0
  42.     mulu    #$0030,d2
  43.     add.l    d2,d0
  44.     add.l    d1,d0
  45.     move.l    _adr_data,d1
  46.     add.l    d1,d0
  47. ;    addi.l    #BS_DATA,d0
  48.     move.l    d0,BS_D14
  49.     clr.l    d1
  50.     move.b    BS_D12,d1
  51.     lsl.l    #$6,d1
  52.     add.l    d1,d0
  53.     move.l    #$0000000e,d1
  54.     adda.l    #$00000020,a1
  55. BS_int4:move.l    d0,(a0)+
  56.     cmpi.b    #-$01,(a1)
  57.     beq.w    BS_int5
  58.     move.w    $0018(a1),d2
  59.     mulu    #$0002,d2
  60.     add.l    d2,d0
  61. BS_int5:adda.l    #$00000020,a1
  62.     dbf    d1,BS_int4
  63.     rts    
  64. _sm_music:
  65. BS_Music:dc.b    $48,$e7,$ff,$fe
  66.     bsr.s    BS_MS2
  67.     movem.l    (a7)+,d0-d7/a0-a6
  68.     moveq    #$00,d0
  69.     rts    
  70.  
  71. BS_MS2:    bsr.w    BS_MX7
  72.     subq.b    #$1,BS_D10
  73.     move.l    #$00000003,d0
  74.     lea    BS_D3,a0
  75.     move.l    #$00dff0a0,a1
  76. BS_MS3:    move.b    $000c(a0),d4
  77.     ext.w    d4
  78.     add.w    d4,(a0)
  79.     tst.b    $001e(a0)
  80.     bne.w    BS_MS4
  81.     move.w    (a0),$0006(a1)
  82. BS_MS4:    move.l    $0004(a0),(a1)
  83.     move.w    $0008(a0),$0004(a1)
  84.     tst.b    $000b(a0)
  85.     bne.w    BS_MS5
  86.     tst.b    $000d(a0)
  87.     beq.w    BS_MS8
  88. BS_MS5:    tst.b    BS_D10
  89.     bne.w    BS_MS6
  90.     move.b    $000b(a0),d3
  91.     move.b    $000d(a0),d4
  92.     andi.w    #$00f0,d4
  93.     andi.w    #$00f0,d3
  94.     lsr.w    #$4,d3
  95.     lsr.w    #$4,d4
  96.     add.w    d3,d4
  97.     add.b    $000a(a0),d4
  98.     bsr.w    BS_MX6
  99.     bra.w    BS_MS8
  100.  
  101. BS_MS6:    cmpi.b    #$01,BS_D10
  102.     bne.w    BS_MS7
  103.     move.b    $000b(a0),d3
  104.     move.b    $000d(a0),d4
  105.     andi.w    #$000f,d3
  106.     andi.w    #$000f,d4
  107.     add.w    d3,d4
  108.     add.b    $000a(a0),d4
  109.     bsr.w    BS_MX6
  110.     bra.w    BS_MS8
  111.  
  112. BS_MS7:    move.b    $000a(a0),d4
  113.     bsr.w    BS_MX6
  114. BS_MS8:    lea    $0010(a1),a1
  115.     lea    $0020(a0),a0
  116.     dbf    d0,BS_MS3
  117.     tst.b    BS_D10
  118.     bne.w    BS_MS9
  119.     move.b    #$03,BS_D10
  120. BS_MS9:    subq.b    #$1,BS_D8
  121.     beq.w    BS_MT1
  122.     rts    
  123.  
  124. BS_MT1:    move.b    BS_D9,BS_D8
  125.     bsr.s    BS_MU1
  126.     move.w    BS_D13,$00dff096
  127.     move.l    #$000001f4,d0
  128. BS_MT2:    dbf    d0,BS_MT2
  129.     move.l    #$00000003,d0
  130.     move.l    #$00dff0a0,a1
  131.     move.w    #$0001,d1
  132.     lea    BS_D3,a2
  133.     lea    BS_D15,a5
  134. BS_MT3:    btst    #$07,(a2)
  135.     beq.w    BS_MT4
  136.     bsr.w    BS_MW3
  137. BS_MT4:    asl.w    #$1,d1
  138.     lea    $0010(a1),a1
  139.     lea    $0020(a2),a2
  140.     lea    $0024(a5),a5
  141.     dbf    d0,BS_MT3
  142.     rts    
  143.  
  144. BS_MU1:    clr.w    BS_D13
  145.     move.l    _adr_data,a0
  146. ;    lea    BS_DATA,a0
  147.     move.l    #$00dff0a0,a3
  148.     move.l    #$00000003,d0
  149.     move.w    #$0001,d7
  150.     lea    BS_D3,a1
  151. BS_MU2:    clr.l    d1
  152.     move.w    BS_D4,d1
  153.     lsl.w    #$4,d1
  154.     move.l    d0,d2
  155.     lsl.l    #$2,d2
  156.     add.l    d2,d1
  157.     addi.l    #$00000200,d1
  158.     move.w    $00(a0,d1.l),d2
  159.     move.b    $02(a0,d1.l),BS_D6
  160.     move.b    $03(a0,d1.l),BS_D7
  161.     subq.w    #$1,d2
  162.     mulu    #$0030,d2
  163.     clr.l    d3
  164.     move.w    $001e(a0),d3
  165.     lsl.w    #$4,d3
  166.     add.l    d2,d3
  167.     move.l    #$00000200,d4
  168.     move.b    BS_D5,d4
  169.     add.l    d3,d4
  170.     move.l    d4,a2
  171.     adda.l    a0,a2
  172.     clr.l    d3
  173.     move.b    (a2),d3
  174.     tst.b    d3
  175.     bne.w    BS_MU3
  176.     bra.w    BS_MV0
  177.  
  178. BS_MU3:    clr.w    $000c(a1)
  179.     move.b    $0001(a2),d4
  180.     andi.b    #$0f,d4
  181.     cmpi.b    #$0a,d4
  182.     bne.w    BS_MU4
  183.     move.b    $0002(a2),d4
  184.     andi.b    #-$10,d4
  185.     bne.w    BS_MU5
  186. BS_MU4:    add.b    BS_D7,d3
  187.     ext.w    d3
  188. BS_MU5:    move.b    d3,$000a(a1)
  189.     lea    BS_D16,a4
  190.     lsl.w    #$1,d3
  191.     move.w    -$02(a4,d3.w),(a1)
  192.     bset    #$07,(a1)
  193.     move.b    #-$01,$0002(a1)
  194.     clr.w    d3
  195.     move.b    $0001(a2),d3
  196.     lsr.b    #$4,d3
  197.     andi.b    #$0f,d3
  198.     tst.b    d3
  199.     bne.w    BS_MU6
  200.     move.b    $0003(a1),d3
  201. BS_MU6:    move.b    $0001(a2),d4
  202.     andi.b    #$0f,d4
  203.     cmpi.b    #$0a,d4
  204.     bne.w    BS_MU7
  205.     move.b    $0002(a2),d4
  206.     andi.b    #$0f,d4
  207.     bne.w    BS_MU8
  208. BS_MU7:    add.b    BS_D6,d3
  209. BS_MU8:    cmpi.w    #$0001,$0008(a1)
  210.     beq.w    BS_MU9
  211.     cmp.b    $0003(a1),d3
  212.     beq.w    BS_MV0
  213. BS_MU9:    move.b    d3,$0003(a1)
  214.     or.w    d7,BS_D13
  215. BS_MV0:    clr.l    d3
  216.     clr.l    d4
  217.     move.b    $0001(a2),d3
  218.     andi.b    #$0f,d3
  219.     move.b    $0002(a2),d4
  220.     cmpi.b    #$00,d3
  221.     bne.w    BS_MV1
  222.     move.b    d4,$000b(a1)
  223. BS_MV1:    cmpi.b    #$01,d3
  224.     bne.w    BS_MV2
  225.     move.w    d4,$0008(a3)
  226.     move.b    d4,$0002(a1)
  227. BS_MV2:    cmpi.b    #$02,d3
  228.     bne.w    BS_MV3
  229.     move.b    d4,BS_D8
  230.     move.b    d4,BS_D9
  231. BS_MV3:    cmpi.b    #$03,d3
  232.     bne.w    BS_MV5
  233.     tst.b    d4
  234.     bne.w    BS_MV4
  235.     bset    #$01,$00bfe001
  236.     bra.w    BS_MW1
  237.  
  238. BS_MV4:    bclr    #$01,$00bfe001
  239. BS_MV5:    cmpi.b    #$04,d3
  240.     bne.w    BS_MV6
  241.     sub.w    d4,(a1)
  242.     clr.b    $000b(a1)
  243. BS_MV6:    cmpi.b    #$05,d3
  244.     bne.w    BS_MV7
  245.     add.w    d4,(a1)
  246.     clr.b    $000b(a1)
  247. BS_MV7:    cmpi.b    #$06,d3
  248.     bne.w    BS_MV8
  249.     move.b    d4,BS_D11
  250. BS_MV8:    cmpi.b    #$07,d3
  251.     bne.w    BS_MV9
  252.     subq.b    #$1,BS_D11
  253.     beq.w    BS_MV9
  254.     move.w    d4,BS_D4
  255. BS_MV9:    cmpi.b    #$08,d3
  256.     bne.w    BS_MW0
  257.     move.b    d4,$000c(a1)
  258. BS_MW0:    cmpi.b    #$09,d3
  259.     bne.w    BS_MW1
  260.     move.b    d4,$000d(a1)
  261. BS_MW1:    lea    $0010(a3),a3
  262.     lea    $0020(a1),a1
  263.     asl.w    #$1,d7
  264.     dbf    d0,BS_MU2
  265.     addq.b    #$3,BS_D5
  266.     cmpi.b    #$30,BS_D5
  267.     bne.w    BS_MW2
  268.     move.b    #$00,BS_D5
  269.     addq.w    #$1,BS_D4
  270.     move.l    _adr_data,a0
  271. ;    lea    BS_DATA,a0
  272.     move.w    $001e(a0),d1
  273.     cmp.w    BS_D4,d1
  274.     bne.w    BS_MW2
  275.     move.w    #$0000,BS_D4
  276. BS_MW2:    rts    
  277.  
  278. BS_MW3:    bclr    #$07,(a2)
  279.     tst.l    (a5)
  280.     beq.w    BS_MW5
  281.     clr.w    d3
  282.     move.l    (a5),a4
  283.     moveq    #$07,d7
  284. BS_MW4:    move.l    $04(a5,d3.w),(a4)+
  285.     addq.w    #$4,d3
  286.     dbf    d7,BS_MW4
  287. BS_MW5:    move.w    (a2),$0006(a1)
  288.     clr.l    d7
  289.     move.b    $0003(a2),d7
  290.     move.l    d7,d6
  291.     lsl.l    #$5,d7
  292.     move.l    _adr_data,a3
  293. ;    lea    BS_DATA,a3
  294.     cmpi.b    #-$01,$00(a3,d7.w)
  295.     beq.w    BS_MX0
  296.     clr.l    (a5)
  297.     clr.b    $001a(a2)
  298.     clr.w    $001e(a2)
  299.     addi.l    #$00000018,d7
  300.     lsl.l    #$2,d6
  301.     lea    BS_D17,a4
  302.     move.l    -$04(a4,d6.l),d4
  303.     beq.w    BS_MW7
  304.     move.l    d4,(a1)
  305.     move.w    $00(a3,d7.l),$0004(a1)
  306.     move.b    $0002(a2),$0009(a1)
  307.     cmpi.b    #-$01,$0002(a2)
  308.     bne.w    BS_MW6
  309.     move.w    $06(a3,d7.l),$0008(a1)
  310. BS_MW6:    move.w    $04(a3,d7.l),$0008(a2)
  311.     clr.l    d6
  312.     move.w    $02(a3,d7.l),d6
  313.     add.l    d6,d4
  314.     move.l    d4,$0004(a2)
  315.     cmpi.w    #$0001,$0008(a2)
  316.     bne.w    BS_MW8
  317. BS_MW7:    move.l    #BS_D2,$0004(a2)
  318.     bra.w    BS_MW9
  319.  
  320. BS_MW8:    move.w    $0008(a2),$0004(a1)
  321.     move.l    $0004(a2),(a1)
  322. BS_MW9:    addi.w    #-$8000,d1
  323.     move.w    d1,$00dff096
  324.     rts    
  325.  
  326. BS_MX0:    move.b    #$01,$001a(a2)
  327.     clr.w    $000e(a2)
  328.     clr.w    $0010(a2)
  329.     clr.w    $0012(a2)
  330.     move.w    $16(a3,d7.w),$0014(a2)
  331.     addq.w    #$1,$0014(a2)
  332.     move.w    $0e(a3,d7.w),$0016(a2)
  333.     addq.w    #$1,$0016(a2)
  334.     move.w    #$0001,$0018(a2)
  335.     move.b    $11(a3,d7.w),$001d(a2)
  336.     move.b    $09(a3,d7.w),$001e(a2)
  337.     move.b    $04(a3,d7.w),$001f(a2)
  338.     move.b    $13(a3,d7.w),$001c(a2)
  339.     move.l    BS_D14,a4
  340.     clr.l    d3
  341.     move.b    $01(a3,d7.w),d3
  342.     lsl.l    #$6,d3
  343.     adda.l    d3,a4
  344.     move.l    a4,(a1)
  345.     move.l    a4,$0004(a2)
  346.     move.w    $02(a3,d7.w),$0004(a1)
  347.     move.w    $02(a3,d7.w),$0008(a2)
  348.     tst.b    $04(a3,d7.w)
  349.     beq.w    BS_MX2
  350.     move.l    BS_D14,a4
  351.     clr.l    d3
  352.     move.b    $05(a3,d7.w),d3
  353.     lsl.l    #$6,d3
  354.     adda.l    d3,a4
  355.     clr.w    d3
  356.     move.b    (a4),d3
  357.     addi.b    #-$80,d3
  358.     lsr.w    #$2,d3
  359.     cmpi.b    #-$01,$0002(a2)
  360.     bne.w    BS_MX1
  361.     move.b    $19(a3,d7.w),$0002(a2)
  362. BS_MX1:    clr.w    d4
  363.     move.b    $0002(a2),d4
  364.     mulu    d4,d3
  365.     lsr.w    #$6,d3
  366.     move.w    d3,$0008(a1)
  367.     bra.w    BS_MX3
  368.  
  369. BS_MX2:    move.b    $0002(a2),$0009(a1)
  370.     cmpi.b    #-$01,$0002(a2)
  371.     bne.w    BS_MX3
  372.     move.b    $19(a3,d7.w),$0009(a1)
  373. BS_MX3:    move.l    $0004(a2),a4
  374.     move.l    a4,(a5)
  375.     clr.w    d3
  376.     moveq    #$07,d4
  377. BS_MX4:    move.l    $00(a4,d3.w),$04(a5,d3.w)
  378.     addq.w    #$4,d3
  379.     dbf    d4,BS_MX4
  380.     tst.b    $11(a3,d7.w)
  381.     beq.w    BS_MW9
  382.     tst.b    $13(a3,d7.w)
  383.     beq.w    BS_MW9
  384.     clr.l    d3
  385.     move.b    $13(a3,d7.w),d3
  386.     lsr.l    #$3,d3
  387.     move.b    d3,$001c(a2)
  388.     subq.l    #$1,d3
  389. BS_MX5:    neg.b    (a4)+
  390.     dbf    d3,BS_MX5
  391.     bra.w    BS_MW9
  392.  
  393. BS_MX6:    lea    BS_D16,a4
  394.     ext.w    d4
  395.     asl.w    #$1,d4
  396.     move.w    -$02(a4,d4.w),$0006(a1)
  397.     rts    
  398.  
  399. BS_MX7:    move.l    #$00000003,d0
  400.     lea    BS_D3,a2
  401.     lea    $00dff0a0,a1
  402.     move.l    _adr_data,a3
  403. ;    lea    BS_DATA,a3
  404.     lea    BS_D15,a5
  405. BS_MX8:    tst.b    $001a(a2)
  406.     beq.w    BS_MX9
  407.     bsr.s    BS_MY0
  408. BS_MX9:    lea    $0024(a5),a5
  409.     lea    $0020(a2),a2
  410.     lea    $0010(a1),a1
  411.     dbf    d0,BS_MX8
  412.     rts    
  413.  
  414. BS_MY0:    clr.w    d7
  415.     move.b    $0003(a2),d7
  416.     lsl.w    #$5,d7
  417.     tst.b    $001f(a2)
  418.     beq.w    BS_MY1
  419.     subq.w    #$1,$0018(a2)
  420.     bne.w    BS_MY1
  421.     clr.l    d3
  422.     move.b    $08(a3,d7.w),d3
  423.     move.w    d3,$0018(a2)
  424.     move.l    BS_D14,a4
  425.     move.b    $05(a3,d7.w),d3
  426.     lsl.l    #$6,d3
  427.     adda.l    d3,a4
  428.     move.w    $0012(a2),d3
  429.     clr.w    d4
  430.     move.b    $00(a4,d3.w),d4
  431.     addi.b    #-$80,d4
  432.     lsr.w    #$2,d4
  433.     clr.w    d3
  434.     move.b    $0002(a2),d3
  435.     mulu    d3,d4
  436.     lsr.w    #$6,d4
  437.     move.w    d4,$0008(a1)
  438.     addq.w    #$1,$0012(a2)
  439.     move.w    $06(a3,d7.w),d4
  440.     cmp.w    $0012(a2),d4
  441.     bne.w    BS_MY1
  442.     clr.w    $0012(a2)
  443.     cmpi.b    #$01,$001f(a2)
  444.     bne.w    BS_MY1
  445.     clr.b    $001f(a2)
  446. BS_MY1:    tst.b    $001e(a2)
  447.     beq.w    BS_MY3
  448.     subq.w    #$1,$0016(a2)
  449.     bne.w    BS_MY3
  450.     clr.l    d3
  451.     move.b    $10(a3,d7.w),d3
  452.     move.w    d3,$0016(a2)
  453.     move.l    BS_D14,a4
  454.     move.b    $0a(a3,d7.w),d3
  455.     lsl.l    #$6,d3
  456.     adda.l    d3,a4
  457.     move.w    $0010(a2),d3
  458.     clr.l    d4
  459.     move.b    $00(a4,d3.w),d4
  460.     ext.w    d4
  461.     ext.l    d4
  462.     clr.l    d5
  463.     move.b    $0b(a3,d7.w),d5
  464.     tst.b    d5
  465.     beq.w    BS_MY2
  466.     divs    d5,d4
  467. BS_MY2:    move.w    (a2),d5
  468.     add.w    d4,d5
  469.     move.w    d5,$0006(a1)
  470.     addq.w    #$1,$0010(a2)
  471.     move.w    $0c(a3,d7.w),d3
  472.     cmp.w    $0010(a2),d3
  473.     bne.w    BS_MY3
  474.     clr.w    $0010(a2)
  475.     cmpi.b    #$01,$001e(a2)
  476.     bne.w    BS_MY3
  477.     clr.b    $001e(a2)
  478. BS_MY3:    tst.b    $001d(a2)
  479.     beq.w    BS_MY8
  480.     subq.w    #$1,$0014(a2)
  481.     bne.w    BS_MY8
  482.     tst.l    (a5)
  483.     beq.w    BS_MY8
  484.     clr.l    d3
  485.     move.b    $18(a3,d7.w),d3
  486.     move.w    d3,$0014(a2)
  487.     move.l    BS_D14,a4
  488.     move.b    $12(a3,d7.w),d3
  489.     lsl.l    #$6,d3
  490.     adda.l    d3,a4
  491.     move.w    $000e(a2),d3
  492.     clr.l    d4
  493.     move.b    $00(a4,d3.w),d4
  494.     move.l    (a5),a4
  495.     addi.b    #-$80,d4
  496.     lsr.l    #$3,d4
  497.     clr.l    d3
  498.     move.b    $001c(a2),d3
  499.     move.b    d4,$001c(a2)
  500.     adda.l    d3,a4
  501.     move.l    a5,a6
  502.     adda.l    d3,a6
  503.     addq.l    #$4,a6
  504.     cmp.b    d3,d4
  505.     beq.w    BS_MY7
  506.     bgt.w    BS_MY5
  507.     sub.l    d4,d3
  508.     subq.l    #$1,d3
  509. BS_MY4:    move.b    -(a6),d4
  510.     move.b    d4,-(a4)
  511.     dbf    d3,BS_MY4
  512.     bra.w    BS_MY7
  513.  
  514. BS_MY5:    sub.l    d3,d4
  515.     subq.l    #$1,d4
  516. BS_MY6:    move.b    (a6)+,d3
  517.     neg.b    d3
  518.     move.b    d3,(a4)+
  519.     dbf    d4,BS_MY6
  520. BS_MY7:    addq.w    #$1,$000e(a2)
  521.     move.w    $14(a3,d7.w),d3
  522.     cmp.w    $000e(a2),d3
  523.     bne.w    BS_MY8
  524.     clr.w    $000e(a2)
  525.     cmpi.b    #$01,$001d(a2)
  526.     bne.w    BS_MY8
  527.     clr.b    $001d(a2)
  528. BS_MY8:    rts    
  529.  
  530. BS_D1:    dcb.b    8,$00
  531.     dc.b    $02,$7f
  532.     dcb.b    8,$00
  533.     dc.l    BS_Music
  534. BS_D2:    dcb.b    2,$00
  535. BS_D3:    dcb.b    4,$00
  536.     dc.l    BS_D2
  537.     dc.b    $00,$01
  538.     dcb.b    26,$00
  539.     dc.l    BS_D2
  540.     dc.b    $00,$01
  541.     dcb.b    26,$00
  542.     dc.l    BS_D2
  543.     dc.b    $00,$01
  544.     dcb.b    26,$00
  545.     dc.l    BS_D2
  546.     dc.b    $00,$01
  547.     dcb.b    22,$00
  548. BS_D4:    dcb.b    2,$00
  549. BS_D5:    dcb.b    1,$00
  550. BS_D6:    dcb.b    1,$00
  551. BS_D7:    dcb.b    1,$00
  552. BS_D8:    dc.b    $01
  553. BS_D9:    dc.b    $06
  554. BS_D10:    dc.b    $01
  555. BS_D11:    dc.b    $01
  556. BS_D12:    dcb.b    1,$00
  557. BS_D13:    dcb.b    2,$00
  558. BS_D14:    dcb.b    4,$00
  559. BS_D15:    dcb.b    144,$00
  560.     dc.b    $1a,$c0,$19,$40,$17,$c0
  561.     dc.b    $16,$80,$15,$40,$14,$00
  562.     dc.b    $12,$e0,$11,$e0,$10,$e0
  563.     dc.b    $0f,$e0,$0f,$00,$0e,$20
  564.     dc.b    $0d,$60,$0c,$a0,$0b,$e0
  565.     dc.b    $0b,$40,$0a,$a0,$0a,$00
  566.     dc.b    $09,$70,$08,$f0,$08,$70
  567.     dc.b    $07,$f0,$07,$80,$07,$10
  568.     dc.b    $06,$b0,$06,$50,$05,$f0
  569.     dc.b    $05,$a0,$05,$50,$05,$00
  570.     dc.b    $04,$b8,$04,$78,$04,$38
  571.     dc.b    $03,$f8,$03,$c0,$03,$88
  572. BS_D16:    dc.b    $03,$58,$03,$28,$02,$f8
  573.     dc.b    $02,$d0,$02,$a8,$02,$80
  574.     dc.b    $02,$5c,$02,$3c,$02,$1c
  575.     dc.b    $01,$fc,$01,$e0,$01,$c4
  576.     dc.b    $01,$ac,$01,$94,$01,$7c
  577.     dc.b    $01,$68,$01,$54,$01,$40
  578.     dc.b    $01,$2e,$01,$1e,$01,$0e
  579.     dc.b    $00,$fe,$00,$f0,$00,$e2
  580.     dc.b    $00,$d6,$00,$ca,$00,$be
  581.     dc.b    $00,$b4,$00,$aa,$00,$a0
  582.     dc.b    $00,$97,$00,$8f,$00,$87
  583.     dc.b    $00,$7f,$00,$78,$00,$71
  584.     dc.b    $00,$6b,$00,$65,$00,$5f
  585.     dc.b    $00,$5a,$00,$55,$00,$50
  586.     dc.b    $00,$4c,$00,$48,$00,$44
  587.     dc.b    $00,$40,$00,$3c,$00,$39
  588. BS_D17:    dc.l    BS_DATAEND
  589.     dc.l    BS_DATAEND
  590.     dc.l    BS_DATAEND
  591.     dc.l    BS_DATAEND
  592.     dc.l    BS_DATAEND
  593.     dc.l    BS_DATAEND
  594.     dc.l    BS_DATAEND
  595.     dc.l    BS_DATAEND
  596.     dc.l    BS_DATAEND
  597.     dc.l    BS_DATAEND
  598.     dc.l    BS_DATAEND
  599.     dc.l    BS_DATAEND
  600.     dc.l    BS_DATAEND
  601.     dc.l    BS_DATAEND
  602.     dc.l    BS_DATAEND
  603. BS_DATAEND:
  604.     dc.b    $c8,$ca,$cd,$cf,$cf,$d6
  605.